home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / Rock_1_5.lha / ROCK / addrcheck.rexx next >
OS/2 REXX Batch file  |  1995-05-11  |  526b  |  26 lines
  1. /*
  2.              Rock v1.5 - Fidonet mailer for point systems
  3.                  Copyright (C) 1995  Jean-Marc Xiume'
  4.          This software is distributed under the terms of the
  5.     GNU General Public License. Read "license.doc" for more details.
  6.  
  7. **************** Check if the given address is valid ****************
  8. */
  9.  
  10. options results
  11. options failat 99
  12.  
  13. Parse upper arg address .
  14.  
  15. parse var address a.1 ":" a.2 "/" a.3 "." a.4 .
  16.  
  17. if a.4="" then a.4=0
  18.  
  19. do i=1 to 4
  20.   if ~datatype(a.i,'w') then do
  21.     exit 1
  22.   end
  23. end
  24.  
  25. exit 0
  26.